% TEST_ID: LANG-EXPAND-0091
% CATEGORY: stdlib/arithmetic_ops/triangle
% 测试 三角函数

function test_coth_csc_csch_tanh()


assert(coth(0) == inf)
assert(abs(coth(1) - 1.313035285499331) < 1e-12)
assert(abs(real(coth(2+2i)) - 0.975968735117310) < 1e-12 && abs(imag(coth(2+2i)) - 0.027065511732555) < 1e-12)

assert(abs(tanh(7) - 0.999998336943945) < 1e-12)
assert(abs(real(tanh(2+2i)) - 1.023835594570473) < 1e-12 && abs(imag(tanh(2+2i)) + 0.028392952868232) < 1e-12)

assert(csc(0) == inf)
assert(abs(csc(7) - 1.522101062563730) < 1e-12)
assert(abs(real(csc(2+2i)) - 0.244687073586957) < 1e-12 && abs(imag(csc(2+2i)) - 0.107954592221385) < 1e-12)

assert(csch(0) == inf)
assert(abs(csch(7) - 0.001823765447622) < 1e-12)
assert(abs(real(csch(2+2i)) + 0.107954592221385) < 1e-12 && abs(imag(csch(2+2i)) + 0.244687073586957) < 1e-12)